home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / picture / picture.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-05-08  |  3.2 KB  |  112 lines

  1. VERSION 2.00
  2. Begin Form Form1 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   "Picture Viewer"
  5.    ClientHeight    =   5985
  6.    ClientLeft      =   330
  7.    ClientTop       =   1065
  8.    ClientWidth     =   8700
  9.    ControlBox      =   0   'False
  10.    Height          =   6675
  11.    Icon            =   PICTURE.FRX:0000
  12.    Left            =   270
  13.    LinkTopic       =   "Form1"
  14.    MaxButton       =   0   'False
  15.    ScaleHeight     =   5985
  16.    ScaleWidth      =   8700
  17.    Top             =   435
  18.    Width           =   8820
  19.    Begin PictureBox Open 
  20.       Height          =   5055
  21.       Left            =   2880
  22.       ScaleHeight     =   5025
  23.       ScaleWidth      =   5625
  24.       TabIndex        =   4
  25.       Top             =   360
  26.       Width           =   5655
  27.    End
  28.    Begin FileListBox File1 
  29.       Height          =   2565
  30.       Left            =   120
  31.       Pattern         =   "*.BMP;*.WMF;*.ICO"
  32.       TabIndex        =   2
  33.       Top             =   3360
  34.       Width           =   2655
  35.    End
  36.    Begin DirListBox Dir1 
  37.       BackColor       =   &H00FFFFFF&
  38.       FontBold        =   -1  'True
  39.       FontItalic      =   -1  'True
  40.       FontName        =   "MS Sans Serif"
  41.       FontSize        =   8.25
  42.       FontStrikethru  =   0   'False
  43.       FontUnderline   =   0   'False
  44.       ForeColor       =   &H00000000&
  45.       Height          =   2280
  46.       Left            =   120
  47.       TabIndex        =   1
  48.       Top             =   840
  49.       Width           =   2655
  50.    End
  51.    Begin DriveListBox Drive1 
  52.       FontBold        =   -1  'True
  53.       FontItalic      =   0   'False
  54.       FontName        =   "MS Sans Serif"
  55.       FontSize        =   9.75
  56.       FontStrikethru  =   0   'False
  57.       FontUnderline   =   0   'False
  58.       Height          =   360
  59.       Left            =   120
  60.       TabIndex        =   0
  61.       Top             =   360
  62.       Width           =   2655
  63.    End
  64.    Begin Label Label1 
  65.       BorderStyle     =   1  'Fixed Single
  66.       Height          =   375
  67.       Left            =   2880
  68.       TabIndex        =   3
  69.       Top             =   5520
  70.       Width           =   5655
  71.    End
  72.    Begin Menu mnuFile 
  73.       Caption         =   "&File"
  74.       Begin Menu mnuMenu 
  75.          Caption         =   "&About"
  76.          Index           =   0
  77.       End
  78.       Begin Menu mnuMenu 
  79.          Caption         =   "-"
  80.          Index           =   1
  81.       End
  82.       Begin Menu mnuMenu 
  83.          Caption         =   "E&xit"
  84.          Index           =   2
  85.       End
  86.    End
  87. Sub Dir1_Change ()
  88.     File1.Path = Dir1.Path      'Update Files
  89. End Sub
  90. Sub Drive1_Change ()
  91.     Dir1.Path = Drive1.Drive    'Update directory path
  92. End Sub
  93. Sub File1_DblClick ()
  94.     If Right(File1.Path, 1) <> "\" Then
  95.         Label1.Caption = File1.Path & "\" & File1.FileName
  96.     Else                                'If Root DIR
  97.         Label1.Caption = File1.Path & File1.FileName
  98.     End If
  99.     Form1.Open.Picture = LoadPicture(Label1.Caption)
  100. End Sub
  101. Sub mnuMenu_Click (Index As Integer)
  102.     Select Case Index
  103.     Case 0
  104.         'Display Pop-Up Menu
  105.         Form2.Show
  106.     Case 1
  107.     Case 2
  108.         'Display Registration Delay
  109.         End
  110.     End Select
  111. End Sub
  112.